home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / lfw_14b.lsp < prev    next >
Text File  |  1998-03-15  |  20KB  |  392 lines
  1. ;........  Laufwagen 14(b)
  2.  
  3.  
  4. (defun C:LFW-14V2 (/ P1 P2 P10 P11 P12 P13 L PWR PLR PWL PLL E1 E2 Nr BName
  5.                      Lix n Ben2 Wi)
  6.    (EAITmsg "mb_mld14" "\n\n" "017" "\n")             ;LAUFWAGEN 14
  7.    (EAITvari)
  8.    (EAITvars)
  9.    (setvar "ORTHOMODE" 0)
  10.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "017")(EAITmg "mb_mld10" "015"))) ;  1. Punkt (Return = relativ):
  11.    (setq P1 (getpoint))
  12.    (if (= P1 nil)(setq P1 (EAITrpt)))
  13.    (EAITbpt nil nil (strcat (EAITmg "mb_mld12" "018")(EAITmg "mb_mld10" "015")))       ;2. Punkt (Return = relativ):
  14.    (setq P2 (getpoint P1))
  15.    (if (= P2 nil)(setq P2 (EAITrpt)))
  16.    (setq Wi (angle P2 P1)
  17.          L   (atof (rtos (+ (distance P1 P2) 112) 2 1))
  18.          PWR (polar P1 (- Wi (EAITgib 90)) 20)
  19.          PLR (polar PWR Wi 8.3)
  20.          PWL (polar P2 (- Wi (EAITgib 90)) 20)
  21.          PLL (polar PWL (+ Wi (EAITgib 180)) 8.3)
  22.          P10 (polar (polar P1 Wi 56)(+ Wi (EAITgib 90)) 20)
  23.          P11 (polar P10 (+ Wi (EAITgib 90)) 28)
  24.          P12 (polar (polar P2 (+ Wi (EAITgib 180)) 56)(+ Wi (EAITgib 90)) 20)
  25.          P13 (polar P12 (+ Wi (EAITgib 90)) 28)
  26.    )
  27.    (setvar "ORTHOMODE" 0)
  28.    (setvar "OSMODE" 0)
  29.    (command EAITege (strcat EAITpfn "29434v2") PWR "" "" (EAITbig Wi)
  30.             EAITege (strcat EAITpfn "29426v1") PLR "" "" (- (EAITbig Wi) 90)
  31.             EAITege (strcat EAITpfn "29434v2") PWL "" "" (+ (EAITbig Wi) 180)
  32.             EAITege (strcat EAITpfn "29428v2") PLL "" "" (+ (EAITbig Wi) 90)
  33.             EAITlay EAITlse "EAIT50" "" EAITlin P10 P12 ""
  34.    )
  35.    (setq E1 (entlast))
  36.    (command EAITlin P13 P11 "" )
  37.    (setq E2 (entlast))
  38.    (setq EAITnrx "0002685")
  39.    (setq BName (EAITbnr))
  40.    (command EAITblo BName P1 E1 E2 ""
  41.             EAITege BName P1 "" "" ""
  42.             EAITege (strcat EAITpfn "02680s2") P10 "" "" (+ (EAITbig Wi)90)
  43.             EAITege (strcat EAITpfn "02680s2") P13 "" ""  (- (EAITbig Wi)90)
  44.    )
  45.    (EAITDBL "0029401")  ; Welle 14
  46.    (command EAITege (strcat EAITpfn "EAITinfo") (polar PLL (+ Wi (EAITgib 90)) 3) "" "" ""
  47.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  48.    )
  49.    (EAITDBL "0029434")     ; Wellenklemmprofil 14
  50.    (command EAITege (strcat EAITpfn "EAITinfo") (polar PLL (+ Wi (EAITgib 90)) 8) "" "" ""
  51.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  52.    )
  53.    (EAITDBL "0029446")  ; Abstreif- u. Schmiersystem 14 
  54.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar PLL (+ Wi (EAITgib 90)) 25) (+ Wi (EAITgib 180)) 42) "" "" ""
  55.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  56.    )
  57.    (EAITDBL "0029426")  ; Doppellagereinheit 14z
  58.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar PLL (+ Wi (EAITgib 90)) 35) (+ Wi (EAITgib 180)) 42) "" "" ""
  59.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  60.    )
  61.    (EAITDBL "0002685")  ; Profil 160x28
  62.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar PLL (+ Wi (EAITgib 90)) 63) (+ Wi (EAITgib 180)) 42) "" "" ""
  63.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  64.    )
  65.    (EAITDBL "0002680")  ; Abdeckkappe 160x28 
  66.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar PLL (+ Wi (EAITgib 90)) 63) (+ Wi (EAITgib 180)) 50) "" "" ""
  67.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  68.    )
  69.    (EAITDBL "0029428")  ; Doppellagereinheit 14e
  70.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar PLR (+ Wi (EAITgib 90)) 35) Wi 42) "" "" ""
  71.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  72.    )
  73.  
  74.   (EAITvarz2)
  75.   (princ)
  76. );defun LFW-14V2
  77.  
  78.  
  79.  
  80. (defun C:LFW-14S2 (/ NL P0 P1 P10 P11 P12 Wi WL PLL PLOE PLR PK L P16 E1 E2 E3 E4 E5
  81.                      E6 Lix n Ben2)
  82.    (EAITmsg "mb_mld14" "\n\n" "017" "\n")             ;LAUFWAGEN 14
  83.    (EAITvari)
  84.    (EAITvars)
  85.    (setvar "ORTHOMODE" 0)
  86.    (setvar "OSMODE" 0)
  87.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  88.    (setq NL (entsel " "))   
  89.    (setvar "OSMODE" 512)
  90.    (EAITmsg "mb_mld14" "\n  " "019" ": ")             ;Profil-Außenlinie:
  91.    (setq P1 (getpoint))
  92.    (EAITbpt nil nil (strcat (EAITmg "mb_mld14" "020")(EAITmg "mb_mld10" "015"))) ;Punkt auf Nutlinie: (Return = relativ):
  93.    (setq P0 (getpoint))   
  94.    (if (= P0 nil)(setq P0 (EAITrpt)))
  95.    (setvar "ORTHOMODE" 0)
  96.    (setvar "OSMODE" 0)
  97.    (setvar "APERTURE" 4)   
  98.    (setq P10 (osnap P1 EAITofend)
  99.          P11 (osnap P1 EAITofmit)
  100.          WL  (angle P10 P11)
  101.      P1  (inters P10 P11 P0 (polar P0 (+ WL(/ pi 2)) 10) nil)
  102.      Wi  (+ (angle P1 P0)(EAITgib 90))        
  103.          PLL (polar P1 (- Wi (EAITgib 90)) 20)
  104.          PLR (polar P1 (- Wi (EAITgib 90)) 20)
  105.          PK  (polar P1 (+ Wi (EAITgib 90)) 34)
  106.          L   (atof (rtos (* (distance P10 P11) 2) 2 1))
  107.          P16 (polar P10 (- Wi (EAITgib 90)) 11.25)
  108.         Ploe(polar P10 WL 10)
  109.    )
  110.    (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL) )
  111.    (command EAITloes P1 (polar P1 (- Wi (EAITgib 90)) 16) (polar P1 (- Wi (EAITgib 90)) 24) ""
  112.             EAITege (strcat EAITpfn "29426d1") PLL "" "" (EAITbig Wi)
  113.             EAITege (strcat EAITpfn "02680v1") PK  "" "" (EAITbig Wi)
  114.             EAITlay EAITlse "EAIT50" ""
  115.             EAITlin P10 (polar P1 (angle P1 P10) 80) "" )
  116.    (setq E1 (entlast))
  117.    (command EAITlin (polar P1 WL 80) (polar P10 WL L) ""
  118.             EAITlin P16 (polar P16 WL (- (distance P1 P10) 80)) ""
  119.             EAITlin (polar P16 WL (+ (distance P1 P10) 80)) (polar P16 WL L) "" )
  120.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3))
  121.    (command EAITkop E3 E4 "" EAITkom P1 (polar P1 (- Wi (EAITgib 90)) 2) P1 (polar P1 (- Wi (EAITgib 90)) 15.5)
  122.                                        P1 (polar P1 (- Wi (EAITgib 90)) 17.5) ""
  123.             EAITlay EAITlse "EAITstpg" ""
  124.             EAITlin (polar (polar P10 (- Wi (EAITgib 90)) 20)(+ WL (EAITgib 180)) 5) (polar (polar P10 (- Wi (EAITgib 90)) 20) WL (- (distance P1 P10) 69)) ""
  125.             EAITlin (polar (polar P10 (- Wi (EAITgib 90)) 20) WL (+ (distance P1 P10) 69)) (polar (polar P10 (- Wi (EAITgib 90)) 20) WL (+ L 5)) ""
  126.    )
  127.    (EAITDBL "0029426")  ; Doppellagereinheit 14z
  128.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (+ Wi (EAITgib 90)) 10) Wi 62) "" "" ""
  129.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  130.    )
  131.    (EAITDBL "0029446")  ; Abstreif- und Schmiersystem 14
  132.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (+ Wi (EAITgib 90)) 10) Wi 72) "" "" ""
  133.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  134.    )
  135.    (EAITDBL "0002685")  ; Profil 160x28
  136.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (+ Wi (EAITgib 90)) 38) Wi 62) "" "" ""
  137.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  138.    )
  139.    (EAITDBL "0002680")  ; Abdeckkappe 160x28
  140.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (+ Wi (EAITgib 90)) 38) Wi 72) "" "" ""
  141.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  142.    )
  143.    (EAITDBL "0029401")  ; Welle 14
  144.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (- Wi (EAITgib 90)) 22) Wi 90) "" "" ""
  145.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  146.    )
  147.    (EAITDBL "0029434")  ; Wellenklemmprofil 14
  148.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 (- Wi (EAITgib 90)) 27.5) Wi 90) "" "" ""
  149.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  150.   )
  151.  
  152.   (EAITvarz2)
  153.   (princ)
  154. );defun LFW-14S2
  155.  
  156.  
  157.  
  158.  
  159. (defun C:LFW-14D3 (/ P1 P2 P10 P11 Wi WL B L PLRO PLRU PLLO PLLU P15R P10R
  160.                      E1 E2 E3 E4 E5 E6 E7 E8 E9 E11 E12 E13 E14 E15 E16 E17 E18 E19
  161.                      Nr BName Ben2L Ben2B n Lx Bx)
  162.    (EAITmsg "mb_mld14" "\n\n" "017" "\n")             ;LAUFWAGEN 14
  163.    (EAITvari)
  164.    (EAITvars)
  165.    (setvar "ORTHOMODE" 0)
  166.    (setvar "OSMODE" 512)
  167.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  168.    (setq P1 (getpoint))
  169.    (EAITbpt nil nil (strcat "\n  " (EAITmg "mb_mld14" "014")(EAITmg "mb_mld10" "015"))) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  170.    (setq P2 (getpoint))   
  171.    (if (= P2 nil)(setq P2 (EAITrpt)))
  172.    (setvar "ORTHOMODE" 0)
  173.    (setvar "OSMODE" 0)
  174.    (setvar "APERTURE" 4)
  175.    (setq P10 (osnap P1 EAITofend)
  176.          P11 (osnap P1 EAITofmit)
  177.          WL  (angle P10 P11)
  178.          P1  (inters p10 p11 p2 (polar p2 (+ WL(/ pi 2)) 10) nil)
  179.          Wi  (angle P2 P1)
  180.          B   (distance P1 P2)
  181.          L   (* (distance P10 P11) 2)
  182.          P15R (polar P10 Wi 15)
  183.          P10R (polar P10 Wi 10)
  184.    )
  185.    (command EAITege (strcat EAITpfn "29426s1") P1 "" "" (- (EAITbig Wi) 90)
  186.             EAITege (strcat EAITpfn "29428s1") P2 "" "" (+ (EAITbig Wi) 90)
  187.             EAITlay EAITlse "EAIT50" ""
  188.             EAITlin P10 P15R "")
  189.    (setq E1 (entlast))
  190.    (command EAITlin P15R (polar P15R WL (- (distance P1 P10) 80)) ""
  191.             EAITlin (polar P15R WL (+ (distance P1 P10) 80))(polar P15R WL L)(polar P10 WL L) ""
  192.             EAITlin P10R (polar P10R WL (- (distance P1 P10) 80)) ""
  193.             EAITlin (polar P10R WL (+ (distance P1 P10) 80))(polar P10R WL L) ""
  194.             EAITlay EAITlse "EAITstpg" ""
  195.             EAITlin (polar (polar P10 Wi 8)(+ WL (EAITgib 180)) 5) (polar (polar P10 Wi 8) WL (- (distance P1 P10) 69)) ""
  196.             EAITlin (polar (polar P10 Wi 8) WL (+ (distance P1 P10) 69)) (polar (polar P10 Wi 8) WL (+ L 5))  ""
  197.    )
  198.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  199.          E6 (entnext E5) E7 (entnext E6) E8 (entnext E7))
  200.    (command EAITspi E1 E2 E3 E4 E5 E6 E7 E8 "" (polar P11 (+ Wi (EAITgib 180)) (/ B 2))(polar (polar P11 (+ Wi (EAITgib 180))(/ B 2)) (+ WL (EAITgib 180)) 1) "" )
  201.    (setq E11 (entnext E8) E12 (entnext E11) E13 (entnext E12) E14 (entnext E13) E15 (entnext E14)
  202.          E16 (entnext E15) E17 (entnext E16) E18 (entnext E17) )
  203.  
  204.          (setq EAITnrx "0029401")
  205.          (setq BName (EAITbnr))
  206.    (command EAITblo BName P11 E1 E2 E3 E4 E5 E6 E7 E8 ""
  207.             EAITege BName P11 "" "" "" )
  208.  
  209.             (setq EAITnrx "0029401")
  210.             (setq BName (EAITbnr))
  211.    (command EAITblo BName P2 E11 E12 E13 E14 E15 E16 E17 E18 ""
  212.             EAITege BName P2 "" "" "" )
  213.           
  214.    (setq L (rtos L 2 1)
  215.          B (rtos (+ B 112) 2 1)
  216.    )
  217.  
  218.    (EAITDBL "0029426")   ;Doppellagereinheit 14z
  219.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 WL 62) Wi 46) "" "" ""
  220.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  221.    )
  222.    (EAITDBL "0029428")   ;Doppellagereinheit 14e
  223.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 62) (angle P1 P2) 48) "" "" ""
  224.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  225.    )
  226.    (EAITDBL "0029446")   ;Abstreif- und Schmiersystem 14
  227.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 72) (angle P1 P2) 48) "" "" ""
  228.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  229.    )
  230.    (EAITDBL "0002680")   ;Abdeckkappe 160x28
  231.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 77) (angle P1 P2) 58) "" "" ""
  232.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  233.    )
  234.    (EAITDBL "0002685")   ;Profil 160x28
  235.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 77) (angle P1 P2) 48) "" "" ""
  236.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
  237.    )
  238.    (EAITDBL "0029434")   ;Wellenklemmprofil 14
  239.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 92) (angle P1 P2) 5) "" "" ""
  240.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  241.    )
  242.    (EAITDBL "0029401")   ;Welle 14
  243.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 92) (angle P1 P2) 12.5) "" "" ""
  244.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  245.   )
  246.  
  247.   (EAITvarz2)
  248.   (princ)
  249. );defun LFW-14D3
  250.  
  251.  
  252.  
  253. (defun C:LFW-14D4 (/ NL P1 P2 P10 P11 P12 Wi WL B L PRO PRU PLO PLOE PLU P15R P10R I X
  254.                      E1 E2 E3 E4 E5 E6 E7 E8 E9 E11 E12 E13 E14 E15 E16 E17 E18 E19
  255.                      Nr BName Lx Bx n Ben2L Ben2B)
  256.    (EAITmsg "mb_mld14" "\n\n" "017" "\n")             ;LAUFWAGEN 14
  257.    (EAITvari)
  258.    (EAITvars)
  259.    (setvar "ORTHOMODE" 0)
  260.    (setvar "OSMODE" 0)
  261.    (EAITmsg "mb_mld14" "\n  " "008" ": ")             ;Traeger-Profil:
  262.    (setq NL (entsel " "))   
  263.    (setvar "OSMODE" 512)
  264.    (EAITmsg "mb_mld14" "\n  " "013" ": ")             ;Erste Profil-Außenlinie:
  265.    (setq P1 (getpoint))
  266.    (EAITbpt nil nil (strcat (EAITmg "mb_mld14" "014")(EAITmg "mb_mld10" "015"))) ;Punkt auf zweiter Profil-Außenlinie: (Return = relativ):
  267.    (setq P2 (getpoint))   
  268.    (if (= P2 nil)(setq P2 (EAITrpt)))
  269.    (setvar "ORTHOMODE" 0)
  270.    (setvar "OSMODE" 0)
  271.    (setvar "APERTURE" 4)
  272.    (setq P1  (osnap P1 EAITofnaec)
  273.          P10 (osnap P1 EAITofend)
  274.          P11 (osnap P1 EAITofmit)
  275.          WL  (angle P10 P11)
  276.          P1  (inters p10 p11 p2 (polar p2 (+ WL(/ pi 2)) 10) nil)
  277.          Wi  (angle P2 P1)        
  278.          B   (+ (distance P1 P2) 112)
  279.          L   (* (distance P10 P11) 2)
  280.          PRO (polar (polar P1 (+ Wi (EAITgib 90)) 80) Wi 56)
  281.          PRU (polar (polar P1 (- Wi (EAITgib 90)) 80) Wi 56)
  282.          PLO (polar PRO (+ Wi (EAITgib 180)) B)
  283.          PLU (polar PRU (+ Wi (EAITgib 180)) B)
  284.          P15R (polar P10 Wi 15)
  285.          P10R (polar P10 Wi 10)
  286.          I  (fix (/ (distance P1 P2) 40))
  287.          X  32.0
  288.          Ploe(polar P10 WL 10)        
  289.    )
  290.    (setvar "PICKBOX" 0)
  291.    (if (/= (cdr (assoc 2 (entget (car NL)))) nil) (command EAITurs NL) )
  292.    (if (/= (ssget P1) nil)
  293.          (command EAITbru P1 EAITbre (polar P1 WL 80)(polar P1 WL -80))
  294.    )
  295.    (if (/= (ssget P2) nil)
  296.          (command EAITbru P2 EAITbre (polar P2 WL 80)(polar P2 WL -80))
  297.    )        
  298.    (repeat I
  299.          (setq X (+ X 40) )
  300.          (if (/= (ssget (polar P2 Wi (- X 56))) nil)
  301.                (command EAITbru (polar P2 Wi (- X 56)) EAITbre (polar PLO Wi X) (polar PLU Wi X) )
  302.         )
  303.          (setq X (+ X 8) )
  304.          (if (/= (ssget (polar P2 Wi (- X 56))) nil)
  305.               (command EAITbru (polar P2 Wi (- X 56)) EAITbre (polar PLO Wi X) (polar PLU Wi X) )
  306.         )
  307.          (setq X (- X 8) )
  308.    )
  309.    (command EAITege (strcat EAITpfn "02680s1") PLU "" "" (+ (EAITbig Wi) 90)
  310.             EAITege (strcat EAITpfn "02680s1") PRO "" "" (- (EAITbig Wi) 90)
  311.             EAITlay EAITlse "EAIT50" ""
  312.             EAITlin PLU PRU "")
  313.    (setq E1 (entlast))
  314.    (command EAITlin (polar PRU (+ Wi (EAITgib 90)) 36) (polar PLU (+ Wi (EAITgib 90)) 36) ""
  315.             EAITlin (polar PLU (+ Wi (EAITgib 90)) 44) (polar PRU (+ Wi (EAITgib 90)) 44) ""
  316.             EAITlin (polar PRU (+ Wi (EAITgib 90)) 76) (polar PLU (+ Wi (EAITgib 90)) 76) ""
  317.             EAITlin (polar PLU (+ Wi (EAITgib 90)) 84) (polar PRU (+ Wi (EAITgib 90)) 84) ""
  318.             EAITlin (polar PRU (+ Wi (EAITgib 90)) 116) (polar PLU (+ Wi (EAITgib 90)) 116) ""
  319.             EAITlin (polar PLU (+ Wi (EAITgib 90)) 124) (polar PRU (+ Wi (EAITgib 90)) 124) ""
  320.             EAITlin PRO PLO ""
  321.    )
  322.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  323.          E6 (entnext E5) E7 (entnext E6) E8 (entnext E7)
  324.    )
  325.    (setq EAITnrx "0002685")
  326.    (setq BName (EAITbnr))
  327.    (command EAITblo BName P11 E1 E2 E3 E4 E5 E6 E7 E8 ""
  328.             EAITege BName P11 "" "" ""
  329.             EAITlin P10 P15R "")
  330.    (setq E1 (entlast))
  331.    (command EAITlin P15R (polar P15R WL (- (distance P1 P10) 80)) ""
  332.             EAITlin (polar P15R WL (+ (distance P1 P10) 80))(polar P15R WL L)(polar P10 WL L) ""
  333.             EAITlin P10R (polar P10R WL (- (distance P1 P10) 80)) ""
  334.             EAITlin (polar P10R WL (+ (distance P1 P10) 80))(polar P10R WL L) ""
  335.             EAITlay EAITlse "EAITstpg" ""
  336.             EAITlin (polar (polar P10 Wi 8) (+ WL (EAITgib 180)) 5)(polar (polar (polar P10 Wi 8) (+ WL (EAITgib 180)) 5) WL (- (distance P1 P10) 70)) ""
  337.             EAITlin (polar (polar P10 Wi 8) WL (+ (distance P1 P10) 75))(polar (polar P10 Wi 8) WL (+ L 5)) ""
  338.    )
  339.    (setq E2 (entnext E1) E3 (entnext E2) E4 (entnext E3) E5 (entnext E4)
  340.          E6 (entnext E5) E7 (entnext E6) E8 (entnext E7))
  341.    (command EAITspi E1 E2 E3 E4 E5 E6 E7 E8 ""  (polar P11 (+ Wi (EAITgib 180)) (/ (- B 112) 2))(polar (polar P11 (+ Wi (EAITgib 180))(/ (- B 112) 2)) (+ WL (EAITgib 180)) 1) EAITspn)
  342.    (setq E11 (entnext E8) E12 (entnext E11) E13 (entnext E12) E14 (entnext E13) E15 (entnext E14)
  343.          E16 (entnext E15) E17 (entnext E16) E18 (entnext E17) )
  344.  
  345.          (setq EAITnrx "0029401")
  346.          (setq BName (EAITbnr))
  347.    (command EAITblo BName P11 E1 E2 E3 E4 E5 E6 E7 E8 ""
  348.             EAITege BName P11 "" "" "" )
  349.  
  350.             (setq EAITnrx "0029401")
  351.             (setq BName (EAITbnr))
  352.    (command EAITblo BName P2 E11 E12 E13 E14 E15 E16 E17 E18 ""
  353.             EAITege BName P2 "" "" "" )
  354.           
  355.    (setq L (rtos L 2 1)
  356.          B (rtos B 2 1)
  357.    )          
  358.  
  359.    (EAITDBL "0029426")   ;Doppellagereinheit 14z
  360.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P1 WL 62) Wi 46) "" "" ""
  361.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  362.    )
  363.    (EAITDBL "0029428")   ;Doppellagereinheit 14e
  364.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 62) (angle P1 P2) 48) "" "" ""
  365.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  366.    )
  367.    (EAITDBL "0029446")   ;Abstreif- und Schmiersystem 14
  368.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 67) (angle P1 P2) 48) "" "" ""
  369.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  370.    )
  371.    (EAITDBL "0002680")   ;Abdeckkappe 160x28
  372.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 77) (angle P1 P2) 58) "" "" ""
  373.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  374.    )
  375.    (EAITDBL "0002685")   ;Profil 160x28
  376.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 77) (angle P1 P2) 48) "" "" ""
  377.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 B (rtos EAITb1 2 1) EAITnr
  378.    )
  379.    (EAITDBL "0029434")   ;Wellenklemmprofil 14
  380.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 85) (angle P1 P2) 5) "" "" ""
  381.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  382.    )
  383.    (EAITDBL "0029401")   ;Welle 14
  384.    (command EAITege (strcat EAITpfn "EAITinfo") (polar (polar P2 WL 85) (angle P1 P2) 12.5) "" "" ""
  385.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 L (rtos EAITb1 2 1) EAITnr
  386.   )
  387.  
  388.   (EAITvarz2)
  389.   (princ)
  390. );defun LFW-14D4
  391. (princ)
  392.